﻿Namespace Ventas
    Public Class frmOrdenGenerarPopup

        Public Property vComprobanteCabecera As Farmacia.Entity.Ventas.Comprobante
        Public Property vComprobanteDetalle As Farmacia.Entity.Ventas.ComprobanteDetalleCol



        Private Sub btn_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Modificar.Click
            'modificar
            Me.DialogResult = Windows.Forms.DialogResult.Cancel
            Me.Close()
        End Sub

        Private Sub btn_NoCobrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_NoCobrar.Click
            'If GenerarOrden() Then
            Me.DialogResult = Windows.Forms.DialogResult.Retry
            Me.Close()
            'End If

        End Sub

        Private Sub btn_SiCobrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SiCobrar.Click
            'If GenerarOrden() Then
            Me.DialogResult = Windows.Forms.DialogResult.Yes
            Me.Close()
            'End If
            '
        End Sub

  


        Private Sub frmOrdenGenerarPopup_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            If Me.vComprobanteCabecera IsNot Nothing Then
                Me.txt_total.Text = vComprobanteCabecera.Total
            Else
                Vichama.Configurations.Aplication.MessageBox.MensajeError("No se puede generar Orden")
            End If

        End Sub

        
        Private Sub frmOrdenGenerarPopup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub
    End Class
End Namespace
